home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / easygrap.arc / PRNTSAVE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1982-03-31  |  512 b   |  21 lines
  1. 250  WIDTH "lpt1:",255
  2. 252  LPRINT CHR$(27);"3";CHR$(24)
  3. 255  FOR Z%=1 TO INT(((TOP-1)/8))
  4. 256  LPRINT " "
  5. 257  NEXT
  6. 270  FOR Y1% = TOP TO BOT STEP 7
  7. 285  LPRINT CHR$(27);"K";CHR$(63);CHR$(1);STRING$(LEFT-1,0);
  8. 290  FOR X%=LEFT TO RIGHT
  9. 300  CLR%=(POINT(X%,Y1%)*128)+(POINT(X%,Y1%+1)*64)+(POINT(X%,Y1%+2)*32)+(POINT(X%,Y1%+3)*16)+(POINT(X%,Y1%+4)*8)+(POINT(X%,Y1%+5)*4)+(POINT(X%,Y1%+6)*2)+POINT(X%,Y1%+7)
  10. 310  IF CLR% = 7 THEN CLR% = 3
  11. 320  LPRINT CHR$(CLR%);
  12. 340  NEXT
  13. 350  LPRINT STRING$(319-RIGHT,0)
  14. 460  NEXT
  15. 470  SCREEN 0,1
  16. 480  WIDTH 40
  17. 490  CLS
  18. 500  PRINT " "
  19. 510  PRINT "    PRINT COMPLETE"
  20. 520  CHAIN "easygraf"
  21.